home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
dev
/
gui
/
classactdemo.lha
/
ClassAct
/
Install_ClassActDemo
< prev
next >
Wrap
Text File
|
1995-09-13
|
6KB
|
205 lines
;*******************************************************************************
;
; ______ __ ____ __
; / __ // / / __ \ _/ /_
; / / -'/ / ______ ______ ______ / /_/ /______ / __/
; / / / / / __ // ____// ____// __ // ____/ / /
; / /___ / /_ / __ /_\__ /_\__ // / / // /___ / /_
; \____//___//_/ /_//_____//_____//_/ /_//_____/ /___/
;
; Robert Reiswig ⌐1995
; Source: Digital Quill installer
; Orginal layout by: Christopher Aldi
;
; !! This installer was Edited in Digital Quill, also from Phantom Development!!
;*******************************************************************************
(set classactversion "1.0")
(set spaceneed 130000)
;*** System Stuff ***
(set cpu (database "cpu")) (set vblank (database "vblank"))
(set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
(set osver (/ (getversion "sys:libs/version.library") 65536))
(if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
(set fastmem (- totmem graphmem))
( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
( if (= osver 41) ( (set workbench "4.0")) )))))
;********************************************************************
; English Strings
;********************************************************************
(set #sorry "ClassAct requires at least Kickstart 2.04. Here is the current setup:\n\n")
(set #sorry1 (cat " \"" workbench "\" Version of OS\n\n"
" \"" cpu "\" Processor\n "
" \"" blank "\" Machine\n"
" \"" graphmem "\" Total Free Chip Memory\n"
" \"" fastmem "\" Total Free Fast Memory\n"
)
)
(set #WhereClassAct (cat "Where do you wish to install ClassAct? "
"A directory called \"ClassAct\" will be created there "
"if none is present."
)
)
(set #WhereAuto (cat "Where do you wish to install the AutoDocs? "
"A directory called \"AutoDocs\" will be created there "
"if none is present."
)
)
(set #about (cat "\n\n- ClassAct " classactversion " -\n\n\nPhantom Development, Inc.\n\n"
"P.O. Box 572\n\nPlantsville, CT 06479\n\nTelephone: "
"(203) 276-8175"
)
)
(set #WhereInclude "Where do you wish to install the Includes?")
(set #yes "Yes")
(set #no "No")
(set #whatpart "What parts of ClassAct do you wish to install?")
(set #example " Examples ")
(set #autodoc " AutoDocs ")
(set #include " Files ")
(set #support " Misc. Support Files ")
;********************************************************************
; Check OS for <37
;********************************************************************
(if (< osver 37)
(abort (cat #sorry #sorry1))
)
;********************************************************************
; !welcome
;********************************************************************
(message #about)
(welcome)
;********************************************************************
; Ask where to put ClassAct & Make Dir
;********************************************************************
(set CAdir (askdir (prompt #WhereClassAct)
(help #WhereClassAct)
(default "Work:")
)
)
(if (< (exists (tackon CAdir "ClassAct")) 2) (makedir (tackon CAdir "ClassAct") (infos)) )
(set where (tackon CAdir "ClassAct"))
(set where1 CAdir)
(set @default-dest where)
;********************************************************************
; What parts to install?
;********************************************************************
(set ToDo (askoptions (choices #example)
(prompt #whatpart)
(help #whatpart)
(default 15)
)
)
;********************************************************************
; Make sure there is room
;********************************************************************
(set space1 (getdiskspace where))
(set spacedif (- spaceneed space1))
(set #yaspace (cat "'" where1 "' has enough room for ClassAct."))
(if (< space1 spaceneed)
(set #yaspace (cat where " is " spacedif " bytes short.\nYou will need to "
"'Abort Install' and free up some more space to install "
" ClassAct on " where " ."
)
)
)
(message (cat spaceneed " bytes are needed on\n\n'" where1 "'\n\nto install ClassAct.\n\n\n"
"Currently there is " space1 " bytes free.\n\n\n" #yaspace
)
)
;********************************************************************
; Copy Over Files
;********************************************************************
(copyfiles (source "Read_Me") (dest where) (infos) )
(copyfiles (source "Read_Me-Layout") (dest where) (infos) )
(copyfiles (source "Digital_Quill-Read_Me") (dest where) (infos) )
(copyfiles (source "OrderForm") (dest where) (infos) )
;(copyfiles (source "ClassAct.License") (dest where) (infos) )
(if (< (exists "sys:classes") 2) (makedir "sys:classes") )
(if (< (exists "sys:classes/gadgets") 2) (makedir "sys:classes/gadgets") )
(if (< (exists "sys:classes/images") 2) (makedir "sys:classes/images") )
(if (< (exists "sys:classes/objects") 2) (makedir "sys:classes/objects") )
(copyfiles (source "Classes") (dest "sys:classes") (all) (infos) )
(if (<> ToDo 0)
(
(if (IN ToDo 0)
(
(if (< (exists (tackon where "Examples")) 2) (makedir (tackon where "Examples") ) )
(copyfiles (source "Examples") (dest (tackon where "Examples")) (all) (infos) )
)
)
(if (IN ToDo 1)
(
(set autodir (askdir (prompt #WhereAuto) (help #WhereAuto) (default where) ) )
(if (< (exists (tackon autodir "AutoDocs")) 2) (makedir (tackon autodir "AutoDocs") ) )
(copyfiles (source "AutoDocs") (dest (tackon where "AutoDocs")) (all) (infos) )
)
)
(if (IN ToDo 2)
(
(set INCdir (askdir (prompt #WhereInclude) (help #WhereInclude) (default "Include:") ) )
(copyfiles (source "Include") (dest INCdir) (all) (infos) )
)
)
(if (IN ToDo 3)
(
(if (< (exists (tackon where "Support")) 2) (makedir (tackon where "Support") ) )
(copyfiles (source "Support") (dest (tackon where "Support")) (all) (infos) )
)
)
)
) ; **** END